vb求和,1+x+x^2/2+x^3/3+……+x^n/n

来源:百度知道 编辑:UC知道 时间:2024/06/16 02:19:00
1+x+x^2/2+x^3/3+……+x^n/n
就是1加上x加上2分之x的平方再加上3分之x的3次方一直加到n分之x的n次方。
各位高手给下答案啦~~

m=1
for i=1 to n
m=x^i/i+m
next
print m

可以先写一个函数Calc,n只能为非负整数:
Function Calc(x As Single, n As Integer) As Single
Calc = 1
If n = 0 Then Exit Function
For i = 1 To n
Calc = Calc + (x ^ i) / i
Next i
End Function
然后调用时,若要计算x=5,n=4时的结果,即为calc(5,4)
如Print Calc(5,4)或 text1.text=calc(5,4)等等,以此类推即可

dim Sum as integer = 1
for I = 1 to N
sum=sum+X^i/X
Next